6
How do I put a picture on the control's background

with StatusBar1 do
begin
	BeginUpdate();
	Picture := StatusBar1.ExecuteTemplate('loadpicture(`c:\exontrol\images\zipdisk.gif`)');
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	BackColorPanels := $5000000;
	Format := '1,2,3,4,(5/6/7/8)';
	Debug := True;
	EndUpdate();
end
5
How do I change the control's foreground color

with StatusBar1 do
begin
	BeginUpdate();
	ForeColor := RGB(120,120,120);
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	BackColorPanels := $5000000;
	Format := '1,2,3,4,(5/6/7/8)';
	Debug := True;
	EndUpdate();
end
4
How do I change the control's background color

with StatusBar1 do
begin
	BeginUpdate();
	BackColor := RGB(200,200,200);
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	BackColorPanels := $5000000;
	Format := '1,2,3,4,(5/6/7/8)';
	Debug := True;
	EndUpdate();
end
3
How do I change the control's border, using your EBN files

with StatusBar1 do
begin
	BeginUpdate();
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	Appearance := EXSTATUSBARLib_TLB.AppearanceEnum($1000000);
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	BackColorPanels := $5000000;
	Format := '1,2,3,4,(5/6/7/8)';
	Debug := True;
	EndUpdate();
end
2
How do I remove the control's border

with StatusBar1 do
begin
	BeginUpdate();
	Appearance := EXSTATUSBARLib_TLB.None2;
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	BackColorPanels := $5000000;
	Format := '1,2,3,4,(5/6/7/8)';
	Debug := True;
	EndUpdate();
end
1
How can I change the control's font

with StatusBar1 do
begin
	BeginUpdate();
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	BackColorPanels := $5000000;
	f := (IUnknown(ComObj.CreateComObject(ComObj.ProgIDToClassID('StdFont'))) as stdole_TLB.StdFont);
	with f do
	begin
		Name := 'Verdana';
		Size := 12;
	end;
	Font := (IUnknown(f) as stdole_TLB.StdFont);
	Format := '"static text"[fg=255][a=17],11,22,(33/44)';
	EndUpdate();
end